home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / archiver / zoo21src.zoo / zoo.c < prev    next >
C/C++ Source or Header  |  1991-07-24  |  17KB  |  534 lines
  1. #ifndef LINT
  2. /* derived from: zoo.c 2.24 88/01/29 00:55:09 */
  3. static char sccsid[]="$Id: zoo.c,v 1.5 1991/07/24 23:47:04 bjsjr Rel $";
  4. #endif /* LINT */
  5.  
  6. #if 0
  7. #define TRACEI(item)    printf("line %d: %s= %d\n", __LINE__, #item, item)
  8. #define TRACES(item)    printf("line %d: %s= [%s]\n", __LINE__, #item, item)
  9. #endif
  10.  
  11. extern char version[];
  12.  
  13. /*
  14. Copyright (C) 1986, 1987 Rahul Dhesi -- All rights reserved
  15. (C) Copyright 1988 Rahul Dhesi -- All rights reserved
  16. (C) Copyright 1991 Rahul Dhesi -- All rights reserved
  17. */
  18. #include "options.h"
  19. #include "zoo.h"
  20. #include "zooio.h"
  21. #include "various.h"
  22.  
  23. #include "zoofns.h"
  24.  
  25. #include "errors.i"
  26. #include "zoomem.h"
  27.  
  28. static void ms_help PARMS((char *));
  29. static void wait_return PARMS((void));
  30.  
  31. #ifdef TRACE_IO
  32. int verbose = 0;
  33. #endif
  34.  
  35. int instr PARMS ((char *, char *));
  36.  
  37. char *out_buf_adr;      /* points to memory allocated for output buffer(s) */
  38. char *in_buf_adr;       /* points to memory allocated for input buffer */
  39.  
  40. /* static declarations */
  41. int quiet = 0;             /* whether to be quiet */
  42. int next_arg = FIRST_ARG; /* filenames start at this position */
  43. int arg_count;          /* count of arguments supplied to program */
  44. char **arg_vector;      /* vector of arguments supplied to program */
  45.  
  46. #ifndef GLOB
  47. int main(argc,argv)
  48. #else
  49. int zoomain(argc,argv)
  50. #endif
  51. register int argc;
  52. register char **argv;
  53. {
  54.    char *zooname;          /* synonym for argv[2] -- to make life easier */
  55. #ifndef OOZ
  56.    static char incorrect_args[] = "Incorrect number of arguments.\n";
  57.    int filecount;          /* how many filespecs supplied */
  58. #endif /* OOZ */
  59.  
  60. #ifdef OOZ
  61. #else
  62. /* else not OOZ */
  63.       static char usage[] = "Usage: zoo {acDeglLPTuUvx}[aAcCdEfInmMNoOpPqu1:/.@n] archive file\n(\"zoo h\" for help, \"zoo H\" for extended help)\n";
  64.       static char nov_usage[] =
  65.           "\nNovice usage:  zoo -cmd archive[.zoo] file...  where -cmd is one of these:\n";
  66.       char *option;
  67. #ifndef TOS
  68.       static char nov_cmds[] =
  69.          /* ADD=0EXT=5    MOV=14TES=20PRI=26 DEL=33  LIS=41UPD=47  FRE=55   COMMENT=64 */
  70.            "-add -extract -move -test -print -delete -list -update -freshen -comment\n";
  71. #else
  72.       static char nov_cmds[] = 
  73. "-add -extract -move -test -print -delete -list -update -freshen -comment\n-backup -restore\n";
  74. #endif  /* TOS */
  75.  
  76. #ifdef NOENUM
  77. #define NONE   -1
  78. #define ADD    0
  79. #define EXTRACT 5
  80. #define MOVE   14
  81. #define TEST   20
  82. #define PRINT  26
  83. #define DELETE 33
  84. #define LIST   41
  85. #define UPDATE 47
  86. #define FRESHEN   55
  87. #define COMMENT   64
  88.  
  89. int cmd = NONE;
  90.  
  91. #else
  92.    enum choice {
  93.       NONE = -1, ADD = 0, EXTRACT = 5, MOVE = 14, TEST = 20, PRINT = 26,
  94.       DELETE = 33, LIST = 41, UPDATE = 47, FRESHEN = 55, COMMENT = 64
  95.    };
  96.    enum choice cmd = NONE;          /* assume no Novice command */
  97. #endif
  98.  
  99. #endif /* end of not OOZ */
  100.  
  101. #ifdef SPECINIT
  102.     void spec_init PARMS ((void));
  103.     spec_init();                            /* system-specific startup code */
  104. #endif
  105.  
  106.     /* make sure T_UINT16 is an unsigned 16-bit type, exactly.  This
  107.         code is included only if T_UINT16 was defined by default at the
  108.         end of options.h. */
  109. #ifdef CHECK_TUINT
  110.     {
  111.         T_UINT16 i;
  112.         int status = 0;
  113.         i = ((unsigned) 1) << 15;
  114.         if (i < 0)
  115.             status = 1;
  116.         if (i != ((unsigned) 1) << 15)
  117.             status = 1;
  118.         i *= 2;
  119.         if (i != 0)
  120.             status = 1;
  121.         if (status != 0)
  122.             prterror('w', "Configuration problem: T_UINT16 is not 16 bits\n");
  123.     }
  124. #endif
  125.  
  126.    arg_count = argc;
  127.    arg_vector = argv;
  128.    zooname = argv[FIRST_ARG-1];     /* points to name or archive */
  129.  
  130. #ifdef OOZ
  131.    if (argc < 2) {
  132.       putstr (usage1);
  133.       putstr (usage2);
  134.       zooexit (1);
  135.    }
  136. #else
  137. /* else not OOZ */
  138.    if (argc < 2)
  139.       goto show_usage;
  140.    filecount = argc - 3;
  141.    option = str_dup(argv[1]);
  142.  
  143. #ifdef TRACE_IO
  144.    if (*option == ':') {         /* for debugging output */
  145.       verbose++;
  146.       option++;                  /* hide the : from other functions */
  147.    }
  148. #endif
  149.  
  150. #ifdef WAIT_PROMPT
  151.    if (*option == 'w') {
  152.         option++;                        /* hide w from other functions */
  153.         wait_return();
  154.     }
  155. #endif /* WAIT_PROMPT */
  156.  
  157.    if (*option == 'H') ms_help(option);
  158.    if (*option == 'h' || *option == 'H')
  159.       goto bigusage;
  160.     if (strchr("-acDegflLPTuUvVx", *option) == NULL)
  161.         goto give_list;
  162.  
  163.    if (*option == '-') {
  164. #ifdef NOENUM
  165.       cmd = instr (nov_cmds, str_lwr(option));
  166. #else
  167.       cmd = (enum choice) instr (nov_cmds, str_lwr(option));
  168. #endif
  169.  
  170.       if (strlen(option) < 2 || cmd == NONE)
  171.          goto show_usage;
  172.  
  173.       if (  ((cmd == ADD || cmd == MOVE || cmd == FRESHEN ||
  174.                   cmd == UPDATE || cmd == DELETE) && argc < 4) ||
  175.             ((cmd == EXTRACT || cmd == TEST || cmd == LIST ||
  176.                      cmd == PRINT || cmd == COMMENT) && argc < 3)) {
  177.          fprintf (stderr, incorrect_args);
  178.          goto show_usage;
  179.       }
  180.    } else {
  181.         char *wheresI;        /* will be null if I option not supplied */
  182.         if    (
  183.                 (
  184.                     strchr("au",*option) &&
  185.                     (
  186.                         (((wheresI = strchr(option,'I')) != 0) &&
  187.                             argc != 3) ||
  188.                         wheresI==NULL && argc < 4
  189.                     )
  190.                 ) ||
  191.                  strchr("DU",*option) && argc < 4 ||
  192.              strchr("cexlvVL",*option) && argc < 3 ||
  193.              strchr("TP",*option)   && argc != 3 ||
  194.                  (*option == 'f' && argc != 2) ||
  195.                  (*option == 'g' &&
  196.                     (strchr(option,'A') == NULL && argc < 4 ||
  197.                      strchr(option,'A') != NULL && argc != 3
  198.                     )
  199.                  )
  200.             ) {
  201.          fprintf (stderr, incorrect_args);
  202.          goto show_usage;
  203.       }
  204.    }
  205. #endif /* end of not OOZ */
  206.  
  207. #ifndef OOZ
  208.    /* if not doing a list and no extension in archive name, add default
  209.    extension */
  210.    if (*option != 'f' && cmd != LIST && strchr("lvVL", *option) == NULL &&
  211.          strchr(nameptr (zooname), EXT_CH) == NULL)
  212.       zooname = newcat (zooname, EXT_DFLT);
  213. #endif
  214.  
  215. /*
  216. Here we allocate a large block of memory for the duration of the program.
  217. lzc() and lzd() will use half of it each.  Routine getfile() will use all
  218. of it.  Routine decode() will use the first 8192 bytes of it.  Routine
  219. encode() will use all of it. */
  220.  
  221. /*                          fudge/2           fudge/2
  222. **             [______________||________________|]
  223. **               output buffer    input buffer
  224. */
  225.    out_buf_adr = ealloc (MEM_BLOCK_SIZE);
  226.    in_buf_adr = out_buf_adr + OUT_BUF_SIZE + (FUDGE/2);
  227.  
  228. #ifdef OOZ
  229. zooext(zooname, "\0");     /* just extract -- no fancy stuff   */
  230. zooexit (0);                  /* and exit normally                */
  231. #else
  232. /* else not OOZ -- parse command line and invoke a routine */
  233.    if (cmd != NONE) {
  234.       switch (cmd) {
  235.  
  236.          case ADD:      zooadd (zooname, filecount, &argv[3], "ahP:"); break;
  237.          case FRESHEN:  zooadd (zooname, filecount, &argv[3], "auhP:"); break;
  238.          case UPDATE:   zooadd (zooname, filecount, &argv[3], "auhnP:"); break;
  239.          case MOVE:     zooadd (zooname, filecount, &argv[3], "aMhP:"); break;
  240.          case EXTRACT:  zooext (zooname, "x"); break;
  241.          case TEST:     zooext (zooname, "xNd"); break;
  242.          case PRINT:    zooext (zooname, "xp"); break;
  243.  
  244.          case DELETE:   zoodel (zooname, "DP",1); break;
  245.          case LIST:     zoolist (&argv[2], "VC", argc-2); break;
  246.          case COMMENT:  comment (zooname, "c"); break;
  247.          default: goto show_usage;
  248.       }
  249.    } else
  250.       switch (*option) {
  251.  
  252.          case 'a':
  253.          case 'u':
  254.          case 'T':   
  255.             zooadd (zooname, filecount, &argv[3], option); break;
  256. #ifdef FILTER
  257.             case 'f':
  258.                 zoofilt (option);  break;
  259. #endif /* FILTER */
  260.          case 'D':
  261.             zoodel (zooname, option, 1); break;
  262.          case 'U':
  263.             zoodel (zooname, option, 0); break;
  264.             case 'g':
  265.                 zoodel (zooname, option, 2); break;
  266.          case 'v':
  267.             case 'V':
  268.          case 'l': 
  269.             zoolist(&argv[2], option, 1); break;
  270.          case 'L': 
  271.             zoolist(&argv[2], option, argc-2); break;
  272.          case 'e':
  273.          case 'x': 
  274.             zooext(zooname, option); break;
  275.          case 'P':
  276.             zoopack (zooname